home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 14 / MUNDO14.iso / aplicat / pm65 / ARCHIVE.Z / Split Framed Story.SPT < prev    next >
Encoding:
Text File  |  1996-12-09  |  1.5 KB  |  68 lines
  1. -- Split Framed Story
  2. -- 5 Nov 96, vs
  3. -- This script will unthread two threaded
  4. -- frames.  You need to select both frames
  5. -- before running the script.
  6. -- (Caution: If the text blocks contain hyperlink
  7. -- sources or anchors, they may be moved to an
  8. -- unexpected position by this script.)
  9.  
  10. getselectidlist >> n,id1,z1,...,...,...,...,...,...,...,...,...,...,...,...,...,id2,z2,...
  11. if not(n=2)
  12.     message "Invalid state."
  13.     message "Two adjacent frames should be selected."
  14.     return
  15. endif
  16. selectid id1
  17. getisframe >> f1
  18. try getnextframe 1 >> id1.prev
  19. try getnextframe 0 >> id1.next
  20. selectid id2
  21. getisframe >> f2
  22. try getnextframe 1 >> id2.prev
  23. try getnextframe 0 >> id2.next
  24. if f1*f2=0
  25.     message "Invalid state."
  26.     message "Two adjacent frames should be selected."
  27.     return
  28. endif
  29. if (id2.next=id1)*(id1.prev=id2)
  30.     id1,id2=id2,id1
  31.     id1.prev,id2.prev=id2.prev,id1.prev
  32.     id1.next,id2.next=id2.next,id1.next
  33. endif
  34. if (id1.next=id2)*(id2.prev=id1)=0
  35.     message "Invalid state."
  36.     message "Two adjacent frames should be selected."
  37.     return
  38. endif
  39. selectid id2
  40. textedit
  41. gettextcursor >>...,pos,...
  42. selectall
  43. gettextcursor >> ...,...,end
  44. settextcursor -2,pos,end
  45. cut
  46. lst = id2
  47. selectid id2
  48. repeat
  49. getnextframe 0 >> id3
  50. if id3>0
  51.     selectid id3
  52.     lst = lst,id3
  53. endif
  54. until not(id3>0)
  55. loop i=1,len(lst)
  56. selectid lst(i)
  57. breaklinks
  58. endloop
  59. linkframes len(lst),lst
  60. selectid id2
  61. getselectinfo >> l,t,r,b
  62. newstory (l+r)/2,(t+b)/2
  63. paste
  64. deselect
  65. selectid id1
  66. selectidextend id2
  67. return
  68.